home *** CD-ROM | disk | FTP | other *** search
/ BCI NET / BCI NET Dec 94.iso / archives / grafix / misc / ami2d_2_0.lha / ami2d_dist / ami2d / rexx / helpbar.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1994-09-19  |  980 b   |  50 lines
  1. /*
  2. @Node Header
  3. @Next Macro
  4.  
  5. Code:       helpbar.rexx
  6. Author:     Russell Leighton
  7. Revision:   16 Feb 1994
  8.  
  9. Comments:
  10.  
  11. This  script  is  used by ami2d.rexx to setup the button window for general
  12. operations.   It  is only required by ami2d.rexx and should not be executed
  13. as  a  standalone script.  It does, however, serve as an example script for
  14. rexxbar.
  15.  
  16. @EndNode
  17. @Node Macro
  18. */
  19.  
  20. options results
  21.  
  22. address command
  23. if ~show('ports',"RXB_HELP") then do
  24.     'run ami2d:bin/rexxbar -hRXB_HELP -pAMI2D'
  25.     'waitforport RXB_HELP'
  26. end
  27. else address rxb_help 'close'
  28.  
  29. address rxb_main 'open'
  30. parse var result ix iy iw ih
  31.  
  32. address rxb_help
  33.  
  34. 'button(0,read,ami2d:macros/help/read)'
  35. 'button(1,save,save)'
  36.  
  37. 'button(3,clear,clear)'
  38. 'button(4,wind,window)'
  39. 'button(5,find,find)'
  40. 'button(6,zoom,zoom)'
  41. 'button(7,move,move)'
  42. 'button(8,plot,plot)'
  43. 'button(9,fill,fill)'
  44.  
  45. 'button(11,help,ami2d:macros/help/help)'
  46. 'button(13,undo,ami2d:macros/help/undo)'
  47. 'open('0 - iw',-200,'iw',200,AMI2D)'
  48.  
  49. exit
  50.